home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp2.1 / xldist01.zoo / lsp / sendmacr.lsp < prev    next >
Encoding:
Text File  |  1990-11-09  |  354 b   |  16 lines
  1. (setf (aref *readtable* (char-int #\[))
  2.       (cons :tmacro
  3.         (lambda (f c &aux ex)
  4.             (do () 
  5.             ((eq (peek-char t f) #\]))
  6.             (setf ex (append ex (list (read f)))))
  7.             (read-char f)
  8.             (cons (cons 'send ex) nil))))
  9.  
  10. (setf (aref *readtable* (char-int #\]))
  11.       (cons :tmacro
  12.         (lambda (f c)
  13.             (error "misplaced right bracket"))))
  14.  
  15.  
  16.